home *** CD-ROM | disk | FTP | other *** search
/ Cracking - A jak se proti němu bránit / Cracking-a-jak-se-proti-nemu-branit-covermount.bin / Kompresni & kodovaci programy / JCALG1 RELEASE 5.21 SOURCE CODES / jcalg1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-08-03  |  1.2 KB  |  49 lines
  1. unit JCALG1;
  2.  
  3. {
  4.   Delphi interface for JCALG1 r5.15
  5.   by Jordan Russell
  6. }
  7.  
  8. interface
  9.  
  10. uses
  11.   Windows;
  12.  
  13. type
  14.   TJCALG1_AllocFunc = function(Size: Integer): Pointer; stdcall;
  15.   TJCALG1_DeAllocFunc = function(Memory: Pointer): BOOL; stdcall;
  16.   TJCALG1_CallbackFunc = function(CurrentSrc, CurrentDest: Integer): BOOL; stdcall;
  17.   TJCALG1_Info = packed record
  18.     MajorRev: Integer;
  19.     MinorRev: Integer;
  20.     FastDecompressorSize: Integer;
  21.     SmallDecompressorSize: Integer;
  22.   end;
  23.  
  24. function JCALG1_Compress(Source: Pointer; Length: Integer; Destination: Pointer;
  25.   WindowSize: Integer; pAlloc: TJCALG1_AllocFunc; pDealloc: TJCALG1_DeAllocFunc;
  26.   pCallback: TJCALG1_CallbackFunc): Integer;
  27.   stdcall; external;
  28.  
  29. function JCALG1_Decompress_Fast(Source, Destination: Pointer): Integer;
  30.   stdcall; external;
  31.  
  32. function JCALG1_Decompress_Small(Source, Destination: Pointer): Integer;
  33.   stdcall; external;
  34.  
  35. function JCALG1_GetUncompressedSizeOfCompressedBlock(Block: Pointer): Integer;
  36.   stdcall; external;
  37.  
  38. function JCALG1_GetNeededBufferSize(Size: Integer): Integer;
  39.   stdcall; external;
  40.  
  41. procedure JCALG1_GetInfo(var Info: TJCALG1_Info);
  42.   stdcall; external;
  43.  
  44. implementation
  45.  
  46. {$L jcalg1_borland.obj}
  47.  
  48. end.
  49.